home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / basic / vxbase.zip / VXFORM8.FRM (.txt) < prev    next >
Visual Basic Form  |  1992-05-05  |  3KB  |  70 lines
  1. VXFORM8
  2. Record Structure Example
  3. Form1
  4. CatBox
  5. CatNameBox
  6. EvalBox
  7. Label1
  8. .  vxEvalLogical("left(category,1)='C'", Eval$)
  9. Label2
  10. >vxEvalString("trim(catname)+' is category '+category", EvStr$)
  11. JoinBox
  12. ButtonNext
  13. &Next
  14. ButtonQuit
  15. &Quit
  16.     Form_Load
  17. vxSelectDbf
  18. AirtypesDbf
  19. vxTop
  20. Form8Display
  21. CatRec
  22. vxEof
  23. vxRecord
  24. CatBox
  25. TextO
  26. Category
  27. CatNameBox
  28. CatName    
  29. Form_Paint
  30. Form_Unload
  31. Cancel
  32. vxClose
  33. vxWindowDereg
  34. VXFORM8
  35. hWndk
  36. ButtonQuit_Click
  37. ButtonNext_Click
  38. vxSkip
  39. FALSE
  40.     vxDeleted
  41. MBuff
  42. BufferType
  43. vxEvalLogical
  44. EvalBox
  45. vxEvalString
  46. EvStr
  47. JoinBox
  48. Form_Load
  49. Form8Display
  50.  the structure of the types file is defined-
  51.  in the global module as type CatRec
  52.  if we wanted to use a string as a recordc
  53.  buffer instead of a user defined type, we
  54.  would use code as follows:o
  55.    Buf$ = String$(512,0)
  56.    If vxRecord(ByVal Buf$) ThenT
  57.  example of xBase logical expression evaluation-
  58. left(category,1)='C'
  59.  example of xBase string expression evaluation
  60. trim(catname) + ' is category ' + category
  61. Form_Paint
  62. Form_Unload
  63. ButtonQuit_Click
  64. ButtonNext_Click
  65.  skip forward one record
  66.  if skip error, only allow exita
  67. Error on Skip Next. Try Reindex.
  68.  test for end of file 
  69. End of File!
  70.